home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / easygrap.arc / SAVEGRAF.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-05-11  |  1.3 KB  |  55 lines
  1. 1  DEF SEG=&HB800
  2. 2  BSAVE "tempgraf",0,&H4000
  3. 5  WIDTH 40
  4. 10  SCREEN 0,1
  5. 20  COLOR 15,9,1
  6. 30  KEY OFF
  7. 40  CLS
  8. 50  PRINT STRING$(40,176)
  9. 60  PRINT STRING$(1,176)+SPACE$(38)+STRING$(1,176)
  10. 70  PRINT STRING$(1,176)+"       EASY - GRAF   SAVE SCREEN      "+STRING$(1,176)
  11. 80  PRINT STRING$(1,176)+SPACE$(38)+STRING$(1,176)
  12. 90  PRINT STRING$(40,176)
  13. 100  PRINT " "
  14. 101  INPUT " ENTER NAME TO BE GIVEN TO GRAPHICS ITEM ==>";GRAFNAM$
  15. 102  INPUT " ENTER DESCRIPTION OF ITEM               ==>";GRAFDESC$
  16. 120  OPEN "GRAFINDX.EZG" AS #1 LEN=128
  17. 130  FIELD #1, 10 AS IDX$, 23 AS DESC$,2 AS RESOL$, 2 AS LEFTCOR$, 2 AS RIGHTCOR$,2 AS TOPCOR$, 2 AS BOTCOR$
  18. 135  LSET IDX$="9999999999"
  19. 140  WHILE  IDX$ <> SPACE$(10)
  20. 150  I = I+1
  21. 155  IF I > 10 THEN LSET IDX$ = "999999": GOTO 170
  22. 160  GET #1,I
  23. 170  WEND
  24. 175  SUBSCR = 0
  25. 176  NSPCS = 8 - LENGTHPARM
  26. 180  IF I>10 THEN 1100
  27. 182  LSET LEFTCOR$ = MKI$(LEFT)
  28. 185  LSET RIGHTCOR$ = MKI$(RIGHT)
  29. 187  LSET TOPCOR$=MKI$(TOP)
  30. 188  LSET BOTCOR$=MKI$(BOT)
  31. 190  LSET IDX$=GRAFNAM$
  32. 200  LSET DESC$= GRAFDESC$
  33. 205  LSET RESOL$ = MKI$(RES%)
  34. 210  PUT #1,I
  35. 220  CLOSE #1
  36. 222  CLOSE #1
  37. 225  GRAPHICFILENAME$ = GRAFNAM$+".EZG"
  38. 230  PRINT "     Index updated"
  39. 233  SCREEN RES%,1
  40. 235  DEF SEG=&HB800
  41. 240  BLOAD "TEMPGRAF",0
  42. 245  DEF SEG=&HB800
  43. 250  BSAVE GRAFNAM$+".EZG",0,&H4000
  44. 270  KILL "TEMPGRAF.BAS"
  45. 275  SCREEN 0,1
  46. 276  WIDTH 40
  47. 277  CLS
  48. 280  PRINT " "
  49. 290  PRINT "     "+GRAFNAM$+" SAVED TO DISKETTE"
  50. 300  CHAIN "EASYGRAF"
  51. 1100  PRINT " "
  52. 1110  PRINT "     DIRECTORY IS FULL"
  53. 1120  PRINT "     USE ANOTHER DISKETTE"
  54. 1130  CHAIN "EASYGRAF"
  55.